home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 0022-3.564 / dmg-3417 / gfa_prog.s / gfamusic.txt < prev   
Text File  |  1989-04-05  |  3KB  |  68 lines
  1. SOUNDCHIP MUSIC GFA
  2.  
  3. YAMAHA SOUNDCHIP MUSIC IN GFA.
  4.  
  5. Most of the guys out there want to make a demo in GFA but often don't
  6. have music for it or they have but can't play it from GFA. So here it
  7. is your help in distress. Here is a routine to make these musics work
  8. from GFA basic. You can use it for your demo or in your game or what
  9. ever. Every music we used in this magazine and in diskmagazine issue 1
  10. you can play with this routine, so try it out.
  11.  
  12. Mind the line in MUSIX_ON, use music%+8 for diskmagazine 2 music and
  13. use music%+4 for diskmagazine 1 music. 
  14.  
  15.  INLINE music%,22000
  16. '                                    ! inline is for reserving some space to
  17. '                                    ! put the music in.
  18. DIM reg%(16)                         ! dimension some space
  19. '
  20. DO                                    ! oke lets start...
  21.   FILESELECT "a:\music\*.thk","",fnam$! fileselector to choose music.
  22.   IF fnam$<>""                        ! if name isn't nothing then
  23.     BLOAD fnam$,music%                ! load music into reserved space
  24.     musix_on                          ! gosub routine to start music
  25.     ~INP(2)                           ! wait for key press
  26.                                          
  27.      -  Remember you don't have to want for a key, your own routine
  28.      -  could also be here, for exp. an scrolline, tracking sprites or
  29.      -  something else. Just remove the ~inp(2) and put in your own
  30.      -  routine.
  31.  
  32.     musix_off                         ! stop music
  33.   ELSE                                ! if name is nothing then
  34.     musix_off                         ! stop music
  35.     END                               ! back to basic or if compiled desktop
  36.   ENDIF                               ! end
  37. LOOP                                  ! goto start again to do it all over again
  38. PROCEDURE musix_on
  39.   do%=GEMDOS(&H20,L:0)                ! supervisor mode
  40.   reg%(0)=1                           ! choose music
  41.   RCALL music%,reg%()                 ! music call
  42.   SLPOKE &H4D2,music%+8               ! begin address music diskmagazine 2
  43.   ' SLPOKE &H4D2,music%+4             ! begin address music diskmagazine 1
  44.   ~GEMDOS(&H20,L:do%)                 ! user mode
  45. RETURN
  46. '
  47. PROCEDURE musix_off
  48.   do%=GEMDOS(&H20,L:0)                ! supervisor mode
  49.   SLPOKE &H4D2,0                      ! stop music
  50.   WAVE 0,0,0,0                        ! all sound off
  51.   ~GEMDOS(&H20,L:do%)                 ! user mode kiezen
  52. RETURN
  53. '
  54. '
  55. So i hope you understand all this, in the folder GFA_PROG.S is a file
  56. called GFAMUSIC.LST and you can MERGE it in GFA basic 3.xx. Well i
  57. hope you have some us for it, an if you have some nice routines in GFA
  58. please send them in so other readers can use them. We all have to help
  59. one an other to get the best out of GFA basic, oke ???
  60. '
  61. If you still have some questions about it then write to us, and maybe
  62. we write you back or will write about it in the next issue of the
  63. D.B.A. magazine.
  64.  
  65.                         Keep on Programming...
  66.  
  67.                                 Bonus Software
  68.